home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / LANG / BASIC / LIB / EVENTSHELL / APPBUILD / !AppBuild / NewApp / !RunImage (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1996-01-28  |  4KB  |  94 lines
  1.  > <@@@@@@@@@$Dir>.!@@@@@@@@@
  2.  "Hourglass_Smash":
  3. $;" at line "+
  4.  "<EvntShell$Path>ShellLibRT"
  5. shell_FatalError
  6.  "Hourglass_On"
  7.  "Wimp_SlotSize",-1,-1 
  8.  progsize%
  9. pagesize%=1<<10
  10. freespace%=&8000+progsize%
  11. =freespace%+pagesize%
  12. =freespace%
  13. shell_HeapManagerInit("<EvntShell$Path>",freespace%)
  14. shell_Init
  15.  -------------------- Load extension libraries -----------------------
  16.  Load the extension libraries as follows (assuming library is called
  17.  'MyLib'
  18.  LIBRARY "<EvntShell$Path>Extensions.MyLib" )
  19.  void% = FN_shell_MyLib_Init
  20.  -------------------- Initialise Wimp and Resources ------------------
  21. /task%=
  22. shell_WimpInit_I( 200, "@@@@@@@@@" )
  23.  Uncomment the next two lines to enable debug tracing with ShellDBug..
  24.  PROCshell_TraceInit( "" )
  25.  PROCshell_TraceOn
  26. shell_ResourcesInit
  27. app_init
  28.  -------------------- Initialise Variables ----------------------------
  29. &G_closedown%     =
  30.  Set this to TRUE when you want the program to
  31. '!                       :
  32.  -------------------- Miscelleanous Initialisation --------------------
  33.  "Hourglass_Off"
  34. shell_Error
  35. shell_Action( 
  36. shell_Poll_I( 0, task% ) )
  37.  _closedown%
  38.  This is for the EvntEditor, uncomment to save the files needed
  39.  by !EvntEdit
  40.  PROCshell_EvntSave_AllEvnts( "<@@@@@@@@@$Dir>.EvntData" )
  41.  PROCshell_MenuList_SaveList( "<@@@@@@@@@$Dir>.Menus" )
  42. shell_Exit
  43.  ======================================================================
  44. app_init
  45. SetUp_Windows
  46. SetUp_Menus
  47. SetUp_IconBar
  48.  ===== Menu_Setup routines ======================================
  49. SetUp_Menus
  50.  void%
  51. G\MenuHandle_IconBar% = 
  52. shell_MenuNew( 
  53. shell_MessageNoArgs( "MTIBar" ), "Menu_IBar", 3 )
  54. HQMenuItem_Info%      = 
  55. shell_MenuAdd( 0, 
  56. shell_MessageNoArgs( "Info" ), "" )
  57. Iavoid%               = 
  58. shell_MenuAdd( 0, 
  59. shell_MessageNoArgs ("Quit" ), "_MenuSelect_Quit" )
  60. shell_AttachMenuDBox( MenuItem_Info%, "progInfo", "_PreOpenInfo", "" )
  61.  ===== Window_SetUp routines ====================================
  62. SetUp_Windows
  63. shell_CreateWindowStatic( "mainw", mainw% )
  64.  ===== IconBar_SetUp routines ===================================
  65. SetUp_IconBar
  66. Y^sicon=
  67. shell_Iconbar( -1, "!" + 
  68. shell_GetAppName, "", 120, MenuHandle_IconBar%, 0, 0, 0 )
  69. shell_AttachHelpTag( -1, sicon, "iconbar" )
  70. shell_AttachClickSelect( -1, sicon, "_ClickSelect_IconBar" )
  71.  ===== Dialog_PreOpen routines ==================================
  72. _PreOpenInfo( window_handle% )
  73. shell_IconPutData( window_handle%, 0, 
  74. shell_MessageNoArgs( "progInfo0" ), 0 )
  75. shell_IconPutData( window_handle%, 1, 
  76. shell_MessageNoArgs( "progInfo1" ), 0 )
  77. shell_IconPutData( window_handle%, 2, 
  78. shell_MessageNoArgs( "progInfo2" ), 0 )
  79. shell_IconPutData( window_handle%, 3, 
  80. shell_MessageNoArgs( "progInfo3" ), 0 )
  81.  ===== Dialog_PostOpen routines =================================
  82.  ===== Click_Select routines ====================================
  83. _ClickSelect_IconBar(wh%,icon%)
  84. shell_OpenWindowStatic(mainw%)
  85.  ===== Click_Adjust routines ====================================
  86.  ===== Menu_Select routines =====================================
  87. _MenuSelect_Quit(blk%)
  88. _closedown%=
  89.  ===== Menu_Warning routines ====================================
  90.  ===== Data_Load routines =======================================
  91.  ===== Data_Save routines =======================================
  92.  ===== User application routines ================================
  93.  ================= End Of User Application ======================
  94.